function [discount,beca,stipend] = u14_2010(math,lang,his,sci)
%% Potificia Universidad Catolica de Valparaiso
beca=zeros(size(math,1),1);
stipend=zeros(size(math,1),1);

%Premio de Honor Rector Rub'en Castro
discount=((math==850) + (lang==850) + (his==850) + (sci==850))>0;

end
